home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 125
/
125.d81
/
b.op ed 125
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
51 lines
10 poke56,32:poke55,32:clr
20 dv=peek(186):ifdv<8thendv=8
25 poke788,52
30 poke53281,0:poke53280,0:print"[147][129]"tab(7)"[204][207][193][196][211][212][193][210]'[211] [207][208] [197][196] [195][193][210][212][207][207][206][211]"
40 printtab(11)"[155]by [200]ugh [205]c[205]enamin
42 [139]f1[167]100
44 f1[178]1
50 [158]57812"wp/cm/unp",dv,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
60 [158]57812"op ed shps",dv,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
90 [151]53280,0
92 wp[178]49152:un[178]51456:cm[178]50688
94 lf$(0)[178]"(NULL)ascasc":lf$(1)[178]"(NULL)(NULL) "
96 s(1)[178]16384:l(1)[178]20595[171]s(1)
97 s(2)[178]20736:l(2)[178]24148[171]s(2)
100 [153][163]12)" 1.cont (NULL)epair (NULL)hop
102 printtab(12)" 2.[154] [211]hipwreck
104 [153][163]12)" 3.cont (NULL)uit
106 geta$:ifa$<"1"ora$>"3"then106
108 d=val(a$):ifd=3then40000
109 fori=3to8:poke781,i:sys59903:next
110 syscm,s(d),8192,l(d)
112 poke251,32:poke252,224:poke253,204:sys51456
120 print" 1.[154] [202]ust show the picture.
122 [153]" 2.cont (NULL)how the picture and print it on
125 print" a 7-pin (1525-emulating) printer.
130 [153]" 3.cont (NULL)how the picture and print it on
135 print" an 8-pin ([197]pson-emulating) printer.
140 [153]" 4.cont (NULL)oggle linefeed -- "lf$(lf)
150 [153]" 5.cont (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
170 print"[155] [205]ake sure your printer is on-line.
220 [151]198,0
222 [151]53280,0
230 [161]a$:[139]a$[179]"1"[176]a$[177]"5"[167]230
232 [139]a$[178]"5"[167]40000
233 [139]a$[178]"4"[167]lf[178]1[171]lf:[151]214,17:[153]:[153][163]23)""lf$(lf):[137]220
235 [158]51459
240 [139]a$[178]"2"[167][158]49155,4,5,lf,0,0,39,24,224:[137]280
250 [139]a$[178]"3"[167][158]49152,4,5,lf,0,0,39,24,224,76,35,65,8,0:[137]280
260 [151]198,0
262 [151]53280,0
270 [161]a$:[139]a$[178]""[167]270
280 [151]251,32:[151]252,224:[151]253,204:[158]51459
290 [153]"load":[137]30
10000 [159]15,8,15,"s0:b.op ed 125":[160]15:[148]"b.op ed 125",8:[128]
40000 [151]788,49
40002 a$[178]"hello connect":[129]i[178]8[164]13:[160]2:[159]2,i,2:[160]2:[139]st[167]40020
40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
40020 [130]:[153]"load":[151]2048,0:[151]43,1:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i:[151]43,1
40040 [153]"run":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]